home *** CD-ROM | disk | FTP | other *** search
/ Manchester United on CD / Manchester United on CD.iso / mainmenu.dxr / Internal_21_move randomly along line.ls < prev    next >
Encoding:
Text File  |  2000-08-30  |  852 b   |  27 lines
  1. property psp_mysprite, psp_myconstraintsprite, pi_targeth
  2.  
  3. on beginSprite me
  4.   psp_mysprite = sprite(me.spriteNum)
  5.   psp_myconstraintsprite = sprite(me.spriteNum - 1)
  6.   settarget(me)
  7. end
  8.  
  9. on exitFrame me
  10.   pi_targeth = the mouseH
  11.   psp_mysprite.locH = psp_mysprite.locH + ((pi_targeth - psp_mysprite.locH) / 200.0)
  12.   if psp_mysprite.locH > (psp_myconstraintsprite.right - psp_mysprite.width) then
  13.     psp_mysprite.locH = psp_myconstraintsprite.right - psp_mysprite.width
  14.   end if
  15.   if psp_mysprite.locH < psp_myconstraintsprite.left then
  16.     psp_mysprite.locH = psp_myconstraintsprite.left
  17.   end if
  18. end
  19.  
  20. on settarget me
  21.   pi_targeth = random(psp_myconstraintsprite.width) + psp_myconstraintsprite.locH
  22. end
  23.  
  24. on getPropertyDescriptionList me
  25.   return [#myproperty: [#comment: "comment:", #format: #float, #range: [#min: 0, #max: 180], #default: 10]]
  26. end
  27.